home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.3 / Video Toaster v4.3.iso / 3.1 / toasterall / arexx_examples / tpaint / tppads.rexx < prev    next >
OS/2 REXX Batch file  |  1993-05-13  |  581b  |  22 lines
  1. /* Draw 'Pads' Background */
  2. /* © 1993 NewTek, Inc.    by Arnie Cachelin */
  3.  
  4. address 'DigiPaint' /* Tell ARexx where commands go */
  5. 'Drre'
  6. 'Flon'
  7. 'Hvof'                    /* Turn off Horizontal and Vertical gradients */    
  8. 'Hvar'                    /* Toggle Horiz and Vert. Gradient (on) */
  9. 'Dotb'
  10. 'Poth' $8000        /* Set Gradient center to middle ($0000 - $FFFF) */
  11. 'Potv' $8000        /* Set Gradient center to middle ($0000 - $FFFF) */
  12. 'Rang'
  13. siz=80
  14. do y=0 to 482 by siz
  15.   do x=0 to 752 by siz
  16.     'Pend' x y
  17.     'Penu' x+siz y+siz
  18.   end
  19. end
  20. 'Shco'          /* Render to Program Out */
  21. exit            /* Bye bye! */
  22.